home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/perl -w
-
- use HTML::Parser ();
- use Data::Dump ();
-
- sub h {
- my($event, $line, $column, $text, $tagname, $attr) = @_;
-
- my @d = (uc(substr($event,0,1)) . " L$line C$column");
- substr($text, 40) = "..." if length($text) > 40;
- push(@d, $text);
- push(@d, $tagname) if defined $tagname;
- push(@d, $attr) if $attr;
-
- print Data::Dump::dump(@d), "\n";
- }
-
- my $p = HTML::Parser->new(api_version => 3);
- $p->handler(default => \&h, "event, line, column, text, tagname, attr");
-
- $p->parse_file(@ARGV ? shift : *STDIN);
-
-
-